home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / version / verdll / verinfo2.frm < prev   
Text File  |  1994-10-16  |  2KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form verinfo2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "File Version Info"
  5.    FontBold        =   0   'False
  6.    FontItalic      =   0   'False
  7.    FontName        =   "MS Sans Serif"
  8.    FontSize        =   8.25
  9.    FontStrikethru  =   0   'False
  10.    FontUnderline   =   0   'False
  11.    Height          =   3750
  12.    Left            =   6570
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form3"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2.25
  18.    ScaleMode       =   4  'Character
  19.    ScaleWidth      =   4.5
  20.    Top             =   1830
  21.    Width           =   4620
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   372
  25.       Left            =   1680
  26.       TabIndex        =   0
  27.       Top             =   2880
  28.       Width           =   1452
  29.    End
  30. End
  31. Sub Command1_Click ()
  32.     'Stop
  33.     verinfo2.Hide
  34. End Sub
  35.  
  36. Sub Command1_GotFocus ()
  37.     Form_Paint
  38. End Sub
  39.  
  40. Sub Form_Paint ()
  41.     verinfo2.CurrentX = 2
  42.     verinfo2.CurrentY = 1
  43.     verinfo2.Print "FileName:"
  44.     verinfo2.CurrentX = 2
  45.     verinfo2.Print "Directory:"
  46.     verinfo2.CurrentX = 2
  47.     verinfo2.Print "File Version:"
  48.     verinfo2.CurrentX = 2
  49.     verinfo2.Print "Product Version:"
  50.     verinfo2.CurrentX = 2
  51.     verinfo2.Print "File Flags:"
  52.     verinfo2.CurrentX = 2
  53.     verinfo2.Print "File OS:"
  54.     verinfo2.CurrentX = 2
  55.     verinfo2.Print "File Type:"
  56.     verinfo2.CurrentX = 2
  57.     verinfo2.Print "File Sub-type:"
  58.     verinfo2.CurrentX = 18
  59.     verinfo2.CurrentY = 1
  60.     verinfo2.Print FileName$
  61.     verinfo2.CurrentX = 18
  62.     verinfo2.Print Directory$
  63.     verinfo2.CurrentX = 18
  64.     verinfo2.Print FileVer$
  65.     verinfo2.CurrentX = 18
  66.     verinfo2.Print ProdVer$
  67.     verinfo2.CurrentX = 18
  68.     verinfo2.Print FileFlags$
  69.     verinfo2.CurrentX = 18
  70.     verinfo2.Print FileOS$
  71.     verinfo2.CurrentX = 18
  72.     verinfo2.Print FileType$
  73.     verinfo2.CurrentX = 18
  74.     verinfo2.Print FileSubType$
  75. End Sub
  76.  
  77.